#!usr/lib/perl
use warnings;
use utf8;
use 5.014;

say "Type the words to print, end by \"ctrl d\"";
chomp (my @inPut = <STDIN>);
say "Type the column with, end by \"ctrl d\"";
chomp (my $width = <STDIN>);
my $line = ($width / 10) + 1;
say "1234567890" x $line;
foreach(@inPut){
	printf  "%${width}s\n", $_;
	}